(info-complete-symbol): If MODE is nil, use the default value.

diff --git a/lisp/info-look.el b/lisp/info-look.el
index c798bb769b4fc2de6ac591d81131279c3e2008af..113306dc69e10ff9d8dfcdaa74fd157efc13bb61 100644 (file)
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -465,12 +465,13 @@ Return nil if there is nothing appropriate."
 ;;;###autoload
 (defun info-complete-symbol (&optional mode)
   "Perform completion on symbol preceding point."
-  (interactive
-   (list (if (info-lookup->mode-value
-             'symbol (or info-lookup-mode major-mode))
-            (or info-lookup-mode major-mode)
-          (info-lookup-change-mode 'symbol))))
-  (info-complete 'symbol mode))
+  (interactive)
+  (info-complete 'symbol
+                (or mode
+                    (if (info-lookup->mode-value
+                         'symbol (or info-lookup-mode major-mode))
+                        (or info-lookup-mode major-mode)
+                      (info-lookup-change-mode 'symbol)))))
 
 ;;;###autoload
 (defun info-complete-file (&optional mode)